home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d15
/
grkami2.arc
/
GMKAMI.SMM
next >
Wrap
INI File
|
1991-05-09
|
5KB
|
486 lines
[ver]
4
[sty]
[files]
[prn]
Epson 9 pin
[lang]
1
[desc]
673651644
28
661024420
[fopts]
0
1
0
0
[lnopts]
2
Body Text
[docopts]
5
0
[tag]
Body Text
2
[fnt]
Tms Rmn
160
0
49152
[algn]
225
1
0
0
0
[spc]
17
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
2
2
20
20
1
[spec]
0
0
0
1
0
0
1
0
0
[nfmt]
280
1
3
.
,
$
[tag]
footer
3
[fnt]
Tms Rmn
200
0
49152
[algn]
225
1
0
0
0
[spc]
17
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
2
2
20
20
1
[spec]
0
0
0
1
0
0
1
0
0
[nfmt]
280
1
3
.
,
$
[lay]
Standard
513
[rght]
15840
12240
1
1080
360
1
1080
720
4
1
0
1
8
4
1
1080
11520
14
1
359
1
721
1
1084
1
1446
1
1792
1
2155
1
2517
1
2880
1
3242
1
3605
1
3967
1
4323
1
4683
1
5043
[hrght]
[lyfrm]
1
11200
0
0
12240
1080
1
1
3
1
5
0
0
[frmlay]
1080
12240
1
360
0
1
0
0
2
1
0
1
1
0
1
360
12240
3
1
365
2
6120
3
11162
[txt]
<+B>
<+B>
<+B> <:da<*!><* >> Date Created: <:da<*$><* >>
<+B> By Charlie Pappas Page - <:P11,1,> Date Last revised: <:da<*%><* >>
<+B>
>
[frght]
[lyfrm]
1
13248
0
15480
12240
15840
1
1
3
1
5
0
0
[frmlay]
15840
12240
1
720
0
1
15480
720
2
1
0
1
1
0
1
720
11520
0
[txt]
@footer@
>
[elay]
[l1]
0
[edoc]
function grammar()
<:f240,2Tms Rmn,0,0,0>'This macro places a menu item called "Grammatik"
as the last item on the tools menu. Selecting the menu loads the
current Amipro file in Grammatik for grammar checking. When you close
Grammatik, Pro will load the corrected file.
<:f240,2Tms Rmn,0,0,0>'Note on Autoexec.smm. You can have Amipro
automatically start this macro. To do this, you must create a file
containing the following text omitting the quotes.
<:f240,2Tms Rmn,0,0,0>'Function auto()
<:f240,2Tms Rmn,0,0,0>'call gmkami<:f><:f240,2Tms Rmn,0,0,0>.smm!grammar()
<:f240,2Tms Rmn,0,0,0>'End Function
<:f240,2Tms Rmn,0,0,0>'Save the file as Autoexec.SMM in the docs directory
(or amipro directory).
ignorekeyboard(1)
macro = "gmkami.smm"
mpath = getmacpath$()
DeleteMenuItem(1 "Too&ls" "Gra&mmatik")
AddMenuItem(1 "Too&ls" "Gra&mmatik" "{mpath}{macro}!checkit")
end function
function checkit()
oncancel endit
onerror endit
declare quitap()
getdocname:
xname = GetDocDesc$(1)
name = GetOpenFileName$()
if name = "" then
go = multidecide("You must save your document first." 1)
if go <<>> 1 then
exit function
endif
save
goto getdocname
else
if (true = filechanged(0 0))
save()
endif
endif
darkmode(on)
exec("GMKW.EXE" "-i {name}")
quitap()
ignorekeyboard(1)
fileopen(name amifile "")
endit:
ignorekeyboard(0)
darkmode(off)
end function
function Quitap()
onerror endit
oncancel endit
FindWindow = DLLLocate("User", "FindWindow", "ICC")
hWnd = DLLCall(FindWindow, "grammatik", "grammatik")
while (hwnd)
pause(010)
hWnd = DLLCall(FindWindow, "grammatik", "grammatik")
wend
return 1
endit:
darkmode(off)
End FUNCTION
>
[macsum] 3
grammar 0 0 3 0
checkit 148 0 4 20
Quitap 529 0 3 49
[macse]
14 grammar
0 32 1
7 "gmkami.smm"
8 1
0 295
13
8 2
0 520 1 "Too&ls" "Gra&mmatik"
0 516 1 "Too&ls" "Gra&mmatik" "{2}{1}!checkit"
6 0
15
9
14 checkit
19 00000352
20 00000352
0 279 1
13
8 1
0 267
13
8 2
6 2
7 ""
18 0
11 00000231
0 21 "You must save your document first." 1
13
8 3
6 3
5 1
18 1
11 00000197
6 0
15
9
24 103
10 00000038
10 00000278
5 1
0 34 0 0
13
18 0
11 00000278
2 103 1
0 292 1
0 22 "GMKW.EXE" "-i {2}"
16 quitap
0 32 1
2 102 1 "{2}" 1 ""
0 32 0
0 292 0
6 0
15
9
14 Quitap
20 00000225
19 00000225
0 283 "User" "FindWindow" "ICC"
13
8 1
0 284 "{1}" "grammatik" "grammatik"
13
8 2
6 2
11 00000213
0 274 010
0 284 "{1}" "grammatik" "grammatik"
13
8 2
10 00000125
5 1
15
9
0 292 0
6 0
15
9
00003667